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BEGIN 


'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


ie THIS SOFTWARE is FURNISHED_UNDER A LICENSE AND MAY BE USED AND fo tre 
1 ay IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH 


. Ovi 
!# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
't TRANSFERRED. 


it THE INFORMATION IN THIS SOFTWARE IS SU 
if AND SHOULD NOT BE CONSTRUED AS A C 
is CORPORATION. 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


TO CHANGE WITHOUT NOTICE 


CT 
ITMENT BY DIGITAL EQUIPMENT 


BJE 
OMM 


'e¢ 
7 FACILITY: FIIACP Structure Level 2 
i ABSTRACT: 
This is the main processing routine for the ACCESS function. 
i ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 20-Dec-1976 15:43 
i MODIFIED BY: 

v03-023 cosegos Christian D. Saether 14-Aug-1984 

Rodi ty handling of extension fcbs. Deal with stale 


V03-022 ACG0438 Andrew C. Goldstein, 26-Jul- oven 13:41 
age d interlock to special caches for write acce pyec 
file structure files. Also move create-if handling to 


9 
Sep- 138% $3 $f ‘31 VAX-11 Bliss-32 V4.0-742 
oben 0:06 DISKSVMSMASTER:CF11X.SRCIJACCESS.B32; a9 
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9 
ACCE 18-se -1984 23:47:31 VAX-11 Bliss-32 V4.0-742 Page 
+ 127808- 1382 13:40:56 DISKSVMSMASTER:CF11X.SRCJACCESS.B32;1 . as 
: 28 rh ! } the dispatcher. 
: 60 01: v03-021 ¢DS0003 Christian D. Saether 20-Apr-1984 
: 2: 1 : Access arbitration changes. 
: 6 O68 1 i v03-020 ACG0412 Andrew C. Goldstein, 22-Mar-1984 18:15 
; 64 & 1! Implement agent access mode support; add access mode to 
: 2? 5 : check protection call 
: 6 § 1 3 v03-019 cDS0002 Christian D. Saether 66-Mar-1984 
; «668 3 1! Add re-serialization logic for coming at extension 
: 3 89% : } headers directly. 
: 71 071 1: v03-018 CDS001 Christian D. Saether 1-Mar-1984 
; f B58 : Remove call to FLUSH_FID. 
ee 074 1: v03-017 CDS0009 Christian D. Saether — 29-Dec-1983 
; 75 0075 1! Add L_NORM Limnoge to routine declarations. Invoke 
; 6 Bas : BASE_REGISTER and BIND_COMMON macros where needed. 
: 78 0078 1! V03-016 LMPO166 L. Mark Pilant, 28-0ct-1983 19:07 
3; 0079 1! Correct a bug that caused execute access to grant write access 
3 50 Beee : to a directory during a create-if. 
: 8B 008¢ 1 v03-015 cDS0008 Christian D. Saether 23-Sep-1983 
; § 0085 1! Modify interface to SERIAL_FILE routine. 
3 Be Boee : Remove storing access lock ID in FIB. 
: 86 ape 1: v03-014 LMP0149 L. Mark Pilant, 16-Sep-1983 13:46 | 
; Bo 087 1! Fix potential buffer management problem that may occur in 
3 Hy sts ; READ_ATTRIB. 
: 90 0090 1: v03-013 ACGO354 Andrew C. Goldstein, | 13-Sep-1983 16:11 
é 4: 99 : Add alternate access validation mask 
: 9 0098 1 vo3-012 cps0007 Christian D. Saether 33-May-1983 | 
; 9% 0094 1! Move ACCESS_LOCK and LOCK_MODE routines to 
; | «69S 0095 1! separate module. 
3 38 B08 ! Add call to SERIAL_FILE sync routine. 
: 98 0098 1: v03-011 CDS0006 Christian D. Saether — 28-Apr-1983 | 
; 180 ts ! Clear DELAY_TRUNC in value block if writer. 
: 101 19 1 v03-010 cDS0005 Christian D. Saether 19-Apr-1983 
: 1¢ 1 ; 1! Don't charge quota for access lock. 
3 18 B182 : } Bug check on unexpected errors. 
: 198 105 1! v03-009 CDS0004 Christian D. Saether 6-Apr-1983 
: 198 1 1! Further refinement of locking routine interfaces. 
; 10 1 ': ACCESS_LOCK tests ACCLCK_ID for conversions. 
5 H+ 198 ' ACCESS_LOCK tests CURRENT_UCB CUCBSL_PID] to see if shared. 
: 110 110 1! v03-008 CDS0003 Christian D. Saether 17-Jan-1983 
3 i +f : } Redo the access locking routine interface. 
; 118 118 1! v03-007 cps0002 Christian D. Saether 7-Jan-1983) 
: 116 114 1! Take out access lock in exec mode. Return lock id in fib. 


Previous revision history moved to f11B.REV 


LIBRARY osu Sel JORARY #4 18,L32": 
REQUIRE ‘SRCS$:FCPDEF .B32'; 


FORWARD ROUTINE 
CCESS : L_NORM, ! main access function processing 
SET_EXPIRE : LINORM; i enable expiration date recording 


; 115 115 1! 

3 118 118 1! v03-006 LAP0059 k Pilan nf ¢1-Dece198¢ 11:05 
s 93 11 1! $s create an ath men a f le header is accessed. fhis 
: 18 18 : } atin nates a lot of special casing in the FCB handling. 

: 120 120 1 v03-005 ¢DS0001 Christian D. Saether 6-Dec-1982 

: ; 1 : 1 } Changes to support lock manager based access control. 

: 4 i 1 é 1/ v03-004 LMP48917 L. Mark Pilant, 7-0ct-1982 12:45 
> 124 12446 1! Eliminate the explicit setting of the the access time if 

3 : 5 : 5 : } write access is sought for a particular file. 

.a% : 1 $ 1! Vv03-003 LMP0036 L. Mark Pilant, 30-Jun-1982 10:00 
; : : ; 8 : Add support for Access Control Lists. 

: 1 130 1 v03-002 LMP0023 L. Mark Pilant r-1982 10:40 
s 131 +}; ee If there is only one FCB, don! t call REMAP. t LE but still 
: : ¢ at ; : } set COMPLETE in the window. 

: 134 0134 1 vO3-001 LMP0016 ark Pilant 25-Mar-1982 13:15 
3 133 Bie? : Remove diddling a the COMPLETE bit in the window segments. 
: 137 p38 1 i v02-009 ACG0258 Andrew C. Goldstein, 26-Jan-1982 16:54 
3 138 B85 } Fix reference to RVN 1 in expiration date processing 

: 140 0140 1! v02-008 ACG0230 Andrew C. Goldstein, | 23-Dec-1981 23:17 
8 133 3 1 : Add expiration date maintenance 

: 143 01 5 1: vV02-007 LMP0003 L. Mark Pilant, 8-Dec-1981 19:15 
3 ie Bt : : Added byte Limit quota check on window creation. 

5 146 01 6 1/ V02-006 ACG0225 Andrew C. Goldstein, | 24-Nov-1981 17:18 
; ier at : ' Add NOLOCK support 

: 149 0149 1! v02-005 ACG0167 Andrew C. Goldstein 16-457-1980 19:24 
3; 150 0150 1! 

s 151 0151 1! 

3 136 01 § 1 

; ¥S 4 1 

3 «154 154 1 

s 935 0155 1 

; 156 11 g 1 

s 157 11 1 

: 158 1148 1 

: 159 1149 «1 


3 
4-8 b-sep- 198e {3:40:00 NaScoumBAASPERsCH Tig cheaaccess.032:1°° 
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18-se -1984 23:47:31 VAX-11 Bliss-32 V4.0-742 P 4 
1228 08=198e 13:40:66 DISKSVMSMASTER:CFIIX.SRCIJACCESS.B32:1 > (2) 


GLOBAL ROUTINE ACCESS : L_NORM = | 
ee | 
' 
FUNCTIONAL DESCRIPTION: | 
This is the main processing routine for the ACCESS function. | 
CALLING SEQUENCE: 
ACCESS () 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
CURRENT VCB: VCB of volume 
IO_PACKET: address of 1/0 request packet | 
OUTPUT PARAMETERS: 4 
NONE 
IMPLICIT OUTPUTS: 
PRIMARY_FCB: FCB of file 
CURRENT WINDOW: address of file window 
USER_STATUS: 1/0 status block to return to user 
ROUTINE VALUE: 
NONE 
} 


SIDE EFFECTS: 
FCB & window created 
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ee eee SS Ss 


> 
PRoPOPORaPOMOPONMONOPOPOPUPONONIPPONINININIYD 2 8 2 38 


BEGIN 
BUILTIN 
SUBM; 

LABEL 
4 CHECK_EXPIRE; ! check file expiration date 
04 LOCAL 
05 REALBASIS, 
06 STATU ' protection check status value 
07 FCB_CREATED, ! flag indicating new FCB created 
08 PACRET : REF BBLOCK, ! ogd ess of 1/0 packet 
09 : REF BBLOCKVECTOR C,ABDSC_LENGTHJ, 
10 1 ' buffer descriptors 
11 FIB : REF BBLOCK, ! file identification block 
8 FCB : REF BBLOCK, ! FCB address 
1 UCB : REF BBLOCK, ! UCB of RVN 1 | 
ié PRIMARY_VCB : REF BBLOCK, ' VCB of RVN 1 
15 HEADER REF BBLOCK, ! address of file header 
16 NEW HEADER : REF Bette ! address of extension header 
17 IDERT_AREA : REF BBLOCK, ! address of header ident area 
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1S-se $1984 23:47:31 VAX=-11 Bliss-32 V4.0-742 Page 5) 
12280-1382 $3:40:06 DISKSVMSMASTER:CF11X.SRCJACCESS.B32; 1 . (2). 
; 21 1207 DAY_TIME : VECTOR ¢). ' time of day 
3; i } 38 FUNCTION : BLOCK (iJ; ! function code qualifiers 
3 1 1 i EXTERNAL 
3 § 121 ACP$GB_WRITBACK : BITVECTOR ADDRESSING_MODE (ABSOLUTE); 
i 3¢ 13 ACP Cache writeback flags | 
3 5 : 13 BIND_COMMON; - 
3 5 1 1 EXTERNAL ROUTINE 
; 8 121 REBLD_PRIM_FCB : L_NORM NOVALUE, ! rebuild primary fcb from header 
; 9 1 18 BUILD-EXT_FCBS : L-NORM NOVALUE, ! construct extension fcbs, if nec. 
; 0 121 ARBITRATE-ACCESS : C_JSB_2ARGS, ! arbitrate file access 
; 1 1220 CONV_ACCLOCK : L_RORM, ' convert access lock. 
; ¢ 1221 RELEASE SERIAL_LOCK™: L_NORM NOVALUE, 
; 1 § SERIAL_FILE : L-NORA, ! serialize file requests 
: 1 GET FIB : LINORM, ' get FIB for operation 
: 535 1334 5 : LINORM: i Find file in directory | 
3 1225 REATE L_NORM, ' create file 
3 7 1 $ SWITCH _ VOLUME L_NORM, ! switch to correct volume 
: 8 1 ARCH_FCB L_NORM, ' search FCB List | 
3 9 1228 READ_HEADER L-NORM, ! read file header 
: 240 1229 CREATE FCB L-NORM, ! create an FCB 
3; 241 1230 CHECK_PROTECT L_NORM, ! check file protection 
; eg 1231 CREATE WIND : LINORM, ' create a window 
; 26 1 ; MAKE ACCESS : LLNORM ADDRESSING_MODE (GENERAL), ! complete the access 
> 244 1 : ALLOCATION_LOCK : L_NORM ! take volume allocation lock 
; 245 1234 ALLOCATION_UNLOCK : L_NORM, ! release volume allocation lock 
; 246 1235 RELEASE _LOCKBASIS : L-NORM, ' release buffers under lock 
> 247 1 38 F : L_NORM, ' flush file ID cache 
: 248 123 PURGE _EXTENT : LINORM, ' flush extent cache 
: 249 1238 USH_QUO CACHE : L_NORM, ! flush quota cache 
; 250 1239 CACHE LOCK : LUNORM, ' take out cache interlock 
3; 6251 1240 UM : L_NORM, ' compute file header checksum 
; 26 1241 MARK _DIRTY : L_NORM, ! mark buffer for writeback 
; @ 1 ri} READ ATTRIB : L_NORM, ! read file attributes 
: 254 124 REMAP _FILE : L_NORM, ' remap the file completely 
3 3? ' rf MARK_COMPLETE; ! mark the file as complete 
; 37 1 28 Enable the deaccess cleanup if an access is taking place. 
; 259 124 
: 260 1529 $ PACKET = .10 PACKET; | 
> 261 1250 2 FUNCTION = .PACKETCIRPSW_FUNC); 
; o¢ 1251 IF .FUNCTIONCIO$V_ACCESSJ 
; 26 1 26 THEN 
; 264 125 BEGIN 
; 265 1254 EET Ant ret E he onete = 1; | 
i 366 1255 CLEANUPFLAGSCCLF-DELWINDOW) = 1; | 
: Soa 1589 _— 
; +4 : 28 Set up pointers to interesting control blocks. | 
; 71 1260 
3; af 1261 ' pointer to buffer descriptors 
; 7 1 $¢ ABD = .BBLOCK C.PACKETCIRPSL_SVAPTE], AIBSL_DESCRIPTI; 
: 27% 126 FIB = GET_FIB (.ABD); ' pointer to FIB 


} 

} 

| 

1984 23:47:31 VAX"11 BLiss-32 v4.0-742 p 6. 
pr198e 43:90:00 PraKSVMGHASTER SEY TIXcGREIACCESS.B32;10" (2>. 
| 

| 


! assume access granted 


1 
Bh He 
BSUAALT GRANTEDS «= 1; 


he file in the directory if called for. 


up 

EANUP_FLAGSCCLF_DIRECTORY) 

IND ({ABD, .FIB, 0); 

e is a file open on the channel, check the file ID returned by the 
e 


r 
gainst the file ID that is open. If they are different, drop the FCB 
ndow addresses on the floor. 


IF .PRIMARY_FCBCFCBSW_FID_NUM] NEQ -FIBEE 
OR. -PRIMARY_FCBLFCBSW_FID_RVNJ NEQ .F IBLF 


BEGIN 
PRIMARY_FCB = 0; 
CURRENT WINDOW = 0; 


OWONAOULS WN —OVOONC US Wn O0O@ 


{ this is a find only, exit now to avoid an extraneous read of the 


le header. 


| 
| 
| 
| 
IF .PRIMARY_FCB NEQ 0 
THEN 
1] 
if 
| 


IF NOT .FUNCTIONCIO$V_ACCESS) ! if no access 
AND .PACKETCIRP$W_BCNT)] LEQ ABDSC_ATTRIB ! and no attribute List 
THEN RETURN 1; ! all done 


Pune 


Switch context to the volume of the specified RVN. 


: Synchronize further processing on this file. 


PRIM_LCKINDX = SERIAL_FILE (FIB CFIBSW_FID)); 


! Find the FCB of the file, if one exists. then read the file 


SWITCH VOLUME (.FIBCFIBSW_FID_RVN)); 
header. If there is no FCB, create one. | 


FCB = SEARCH_FCB (FIBCFIB$W_FIDI); 
REALBASIS = 0; 
HEADER = READ_HEADER (FIBCFIBSW_FIDJ, .FCB, REALBASIS); 
IF .REALBASIS NEQ 0 
THEN 
LOCAL _ 
FID : BBLOCK (6); | 
FID CFIDS$W_NUM] = .REALBASIS<0,16>; 
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10 
1$-bep-1984 43:30:06 UISRSVMRAASTERSCY Tins oReIACCESS.B32;1°%° a 

HS EIBHB-Atal © -RIBAISE-B: | 
SWITCH_VOLUME (.FID CFID$B_RVNJ); | 
RELEASE_SERIAL_LOCK (.PRIM_LCKINDX); 
PRIM_LCKINDX = SERIAL_FILE (FID); 
IF SEARCH_FCB (FID) EQL 0 

ERR_EXIT (SS$_NOSUCHFILE); 
HEADER = READ_HEADER (FIB CFIBSW_FIDJ, .FCB); 


48 


f the file is marked for delete and is not accessed by this user, and 
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1 
49 the accessor is not the system, deny its existence. 
51 134 : 
26 1 IF .CURRENT WINDOW EQL 0 AND .HEADERCFH2$V_MARKDEL] 
5 134 AND NOT .BBCOCK CBBLOCK C.PACKETCIRPSL_ARBJ, ARBSG_PRIV], PRVSV_BYPASS) 
34 4 THEN ERR_EXIT (SS$_NOSUCHF ILE); 
56 134 FCB_CREATED = 0; : 
57 1 r¢ IF .FCB EQL 0 ‘ 
58 134 TH : 
59 1348 BEGIN ; 
60 1349 FCB_CREATED = 1; ; 
@] 1331 ECs = KERNEL_CALL (CREATE_FCB, .HEADER); ‘ 
es 1326 PRIMARY_FCB = .FCB; ! record FCB for external use ‘ 
65 1354 ! If access is requested, check for conflicts and file protection. ; 
$6 : 22 then create a window and Link everything up. ‘ 
68 1357 2 ; 
44 1358 IF .FUNCTIONCIOSV_ACCESS) ; 

0 1359 THEN : 

71 1360 BEGIN : 
7 1361 4 IF (,HEADERCFH2$V_LOCKED]) : 
7 1 6¢ AND NOT .BBLOCK CBBLOCK C.PACKETCIRPSL_ARBJ, ARB$Q_PRIVJ, PRV$V_BYPASS] ‘ 
63 136? THEN ERR_EXIT (SS$_FILELOCKED); ! file"is deaccess Tocked : 
76 1365 4 BEGIN : 
77 1 06 4 LOCAL ‘ 
% : 2 PREV_MODE; ° 
39 ' § ? PREV_MODE = .FCB CFCBSB_ACCLKMODE); : 
Be 1 9 4 IF NOT ARBITRATE_ACCESS (.FIB CFIBSL_ACCTL], .FCB) ; 

, ; THEN ERR_EXIT (SS$_ACCONFLICT); : 

5 1374 4 CURRENT_WINDOW = CREATE_WINDOW C.F OLE GBt ACCTLJ,_.FIBCFIBSB_WSIZE], : 
1375 4 -HEADER, .PACKETCIRPSL_PIDJ, .FCB); : 
1 4 3 


IF .CURRENT_WINDOW EQL 0 


~o 


] 
pate) 13:45:06 DISkSUMSMASTERSEFTix-sReIACCESS.832;1°%° (2 | 
THEN 

BEGIN | 

IF .PREV_MODE<O,8> LSSU .FCB CFCBSB_ACCLKMODE’ | 
CONV_ACCLOCK (.PREV_MODE, . FCB); 

| 


ERR_EXIT (SS$_EXBYTLM); 
END; . 


MAKE_ACCESS (.FCB, .CURRENT WINDOW, .ABD); 


IF .FCB CFCBSV_DELAYTRNC) 
AND .FIB CFIBSV_WRITE) 
| 


OO OOCDODODOWOMOMM@~~ 
WN — COONAN S wr 0 0M 


BEGIN 
IF .FCB CFCBSB_ACCLKMODE] LSSU LCKSK_PWMODE 


FUSUSUSISISIOS EL BB IIIS 


94 

95 

38 IF NOT CONV_ACCLOCK (LCKSK_PWMODE, .FCB) 

> BUG_CHECK (XQPERR, FATAL, ‘Unexpected lock manager error’); 
00 FCB CFCBSV_DELAYTRNC] = 0; 

4 FCB CFCBSL_TRUNCVBN) = 0; 

68 CONV_ACCLOCK (.FCB CFCBSB_ACCLKMODE], .FCB); 

04 END;~ 

05 

of 


END; 


SSRIS AFEUN AS SSVSEARAN LS HVS ARAWVH SSRIS ARV OOB VEAL OD 


yo oP ot ot ot ot ot ot ot ot et tt te ke ek et kk ek et et et 
ee ee ed do 


& 
ce 
7 
© 
7 
. 
. 
a 
+ 
o 
. 
. 
° 
. 
. 
6 
. 
. 
. 
6 
. 
. 
. 
. 
. 
. 
o 
io 
. 
. 
. 
. 
° 
. 
. 
. 
° 
. 
. 
. 
om 
. 
. 
. 
e 
. 
° 
~ 
e 
. 
° 
. 
e 
+ 
. 
. 
. 
. 
a 
. 
° 
. 
. 
. 
a 
7 
. 
. 
o 
. 
o 
. 
e 
~ 
e 
. 
e 
7 
o 
. 
& 
. 
os 
. 
eo 
. 
. 
. 
7 
. 
2 
. 
. 
. 
a 
. 
o 
. 
. 
. 
co 
. 
. 
. 
. 
. 
. 
. 
. 
. 
o 
. 
. 


é 
4 
4 
4 
4 4 
4 4 
¢ 
408 ! If file expiration is enabled and the volume is writable, check 
409 ! the current expiration date. If it needs to be updated, note this for 
410 !' processing during deaccess. Note that we use the retention parameters 
411 ' from RVN 1 if this is a volume set. 
ug 
414 4 CHECK_EXPIRE: BEGIN 
415 4 PRIMARY _VCB = “nee _VvCB; 
416 4 UCB = Y CURRE rye 
417 & IF .PRIMARY Eve vcbSu_ RVN] NEQ 0 
418 4 THEN 
419 BEGIN 
: y al och bbs a CCURRENT_RVTCRVTSL_UCBLSTJ, 0]; 
4 ; THEN LEAVE CHECK_E PIRE; 
4 PRIMARY _VCB = UCBLUCBSL _vCcBI; 
Ean 
| 
4 $ 4 IF NOT .BBLOCK CUC er ycea. poveanas, DEVS$V_SWLJ 
4 4 AND NOT .FIB ate ae 
4 8 4 AND CMPM’ ( a a il ves V Bsa RETAINMAX], vert Sf 0)) NEQ 0 
429 4 AND =HEADERLE He OFF SETJ-.HEADERLFH2SB. DOF FSET 
ret : ? Geau VIEOFFSE SET CF 330 EXPDATE) + FI2$S_EXPDATE) / 2 
44 4 ; BEGIN 
444 4 IDENT_AREA = HEADER + ,HEADERCFH2$B_IDOFFSETIJ*2; 
= 3 
445 434 SGETTIM (TIMADR = DAY_TIME) 
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18.29 -1984 VAX-11 Bliss 
1e-geei18ke §3:40:06  SteKSvMeHAST 
SUBQ (PRIMARY VCBCVCB$Q_RETAINMIN], DAY_T 
CMPM (2, IDENT AREATF15$0-¢% EXP ates BAY mt The) LSS 0 
THEN KERNEL_CALL TSET_EXPIRED; 
END; ! end of block CHECK_EXPIRE 
END; ! end of access processing 


' If the file is multi-header, read the extension headers and create 
extension FCB's as necessary. 
A -FCB_CREATED 
gu ge UO ERT LF CBS (, HEADER) 
IF .FCB CFCBSV_STALEJ 
THEN 
BEGIN 
REBLD_PRIM_FCB (.FCB, .HEADER); 
BUILD_EXT_FCBS (.HEADER); 


END; 
! 
} Finally make sure that access is allowed to the file. 


IF_ .FUNCTIONCIOS$V_ACCESS] 
THEN 


STATUS = CHECK ey oo sf 10Ct 188y aes 
NOT . iete iesy-ue 
AND NOT at FIBSV- ~ et 
AND .PACKETCIRPSV_AMODE) LEQu 2 
HEN EXEC ACCESS ~ 
ELSE .FIBCFIBSV_WRITE] OR .FIBCFIBSV_NOREAD], 
7 vee 
MAXU § POCKET s LAP ey MODE], .FIBCFIBSB_AGENT_MODE)), 
Sais t teeny T_Accessd, 
F IBLF IBSV~ALT_REQ)); 
IF .STATUS EQL SS$_NOTALLPRIV 


SS 
THEN FIB P 1BSV -ALT-GRANTED] = 0; 


If this is a write access to the index file, the storage map, or the 
qyote file, flush the appropriate cache. Also take out the cache lock 
f the volume is cluster accessible. 


IF .C ere NT ¥iwpouruCesy. veg 
AND ((.FIBCFIB 
AND .FIB PTB url NORD LEQU FIDSC_BITMAP) 
OR .FCB EQL CURRENT. VCBCVCBSL  QUOTAFL BJ) 


~o 


REJACCESS. B32; 479 


pr19be 13:40:00 DIRKSUMEMARTERCEY Tix sSReaACcess.a32:1°% «os 


vO4=000 


BEGIN 
ALLOCATION LOCK (); 


F .FCB EQL .CURRENT_VCBLVCBSL_QUOTAF(B) 
HEN FLU H att CACHE” () 
ELSE -FIBCFTBSW_FID_NUM] EQL FIDSC_INDEXF 
THEN crete t J 
ELSE PURGE_EXTENT (0, 0); 


RELEASE _LOCKBASIS ( ihe 
ALLOCATTON_UNLOCK 


IF .BBLOCK CCURRENT or cost -DEVCHAR2], DEV$V_CLUJ 
+ -F CBCFCBSL_CACHELKID L~0 


=SSRLESES 


— tb 


BEGIN 
STATUS = CACHE_LOCK (.FCBCFCBSL ,ocrensis3. FCBCFCBSL_CACHELKIDJ, 2); 
IF am «STATUS THEN ERR_EXIT (. STA TATUS) 


4 
4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

; 

4 E 

END; 
END; 
Do read attributes if requested. 


ieee, BCNT) GTR ABDSC_ATTRIB 


BEGIN 
IF CURRENT WINDOW EQL 


MEWN—O OOBNOU SW OOOO wr 


em ee a a a a a a ek ak ed = wd = a 8 = a a “a 2 a 2 


5 
; 
; 6 FCB, 
5 , ache IRP$V_MODEJ, .FIBCFIBSB_AGENT_MODE)), 
53 fi IBSL_ALT_ACCESS], .FIBCFIBSV_ALT_REQJJ; 
IF NOT KERNEL CALL ra LATTRIB, HEADER, .ABD) THEN ERR_EXIT (ss 
HEADER = -FILE_H 

9 Py 

40 IF STATUS EQL SS$_NOTALLPRIV 

4] THEN FIBLFIBSV_ALT-GRANTED] = 0; 

“§ : If necessary map the file completely. 

45 . 

ag IF_.FUNCTIONCIO$V_ACCESS) 

48 IF gjCURRENT. WINDOWCWCBSV_CATHEDRALJ 
aH 5 IF_ .PRIMARY_FCBCFCBSL_EXFCB] NEQ 0 

51 40 THEN REMAP _F 

2 4} ELSE KERNEL. CALL (MARK_COMPLETE, .CURRENT_WINDOW) ; 

54 tg RETURN 1; 

55 44 

56 45 END; ' end of routine ACCESS 


.TITLE ACCESS 
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ACCE 18-50 -1984 23:47:31 VAX-11 Bliss-32 V4.0-742 P 1 
YOse080 12-88-1382 $3'40:60 DISKSVMSMASTER:CF1iX.SRCJACCESS.B32:1 (2 
-IDENT \v04-000\ 
.PSECT SCODE$,NOWRT,2 


00000000 00000000 00000 P.AAA: .LONG 0, 0 ; 


* CHECR PROTECT 
bow, MARE_ACCESS 
LOCK 


So 
@ 


Ww ONO 9-8 - @ -O MOC OMO-JTIO NOO PMWIOOoOoOn 


gENTRY sees Save R2,R3,R4,R5,R6,R7,R8,R9,R11 
MOVAB 12(BASE), RB 

MOVL  =112(BASE), PACKET 

MOV ZWL 32 (PACKET) » FUNCTION 


a6, F 
BISW2 #1026, 2(BASE) 
a44(PACKET), ABD 


06 


——— " DO0O0OO 
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(RO), 4(FIB) 
(RO), 8(FIB) 
ASE) 


) 
FUNCTION, 6$ 
(PACKET), #5 


04 A2 24 
08 A2 28 


> 
NOW VWONMIMAMLS NOOO 


rPoro 
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FOO NNO 
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m 
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ra 
oe 
2 
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PISISISIN 
uw 
bad 


= er 


7E 08 


CMPW 
BGTRU 
BRW 
MOVZWL 
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15-Sep-1984 23:47:31 VAX-11 Bliss-32 V4.0-742 Page 12 

127808=1 982 13:40:06 DISKSVMSMASTER:CF11X.SRCJACCESS.B32;1 % 25 
CF 01 FB $ CALLS #1, SWITCH VOLUME j ‘ 
04 Ae OF PUSHAB 4(F 1B) + 1304 : 
CF 9 FB 7 CALLS #1, SERIAL FILE ; : 
ah ? MOVL RO, 24(BASE) ; : 
04 A2 99F 0007C PUSHAB 4(F1B) + 1310 : 
cf 9 FB 7F CALLS #1, SEARCH_FCB ; : 
3 0D MOVL RO, FCB ; : 
4 AE Ds 7 CLRL _—- REALBASIS ; 1311 : 
4 AE OF A PUSHAB REALBASIS * 1312 : 
5 po D PUSHL FCB : : 
04 A2 OF F PUSHAB 4(F IB) : : 
ct 9 F 3% CALLS #3, READ_HEADER : : 
6 D OVL RO. HEAD : : 
06 AE D O9A TSTL REALBASIS + 1314 : 
45 1 90 BEQL 7 ; : 
AE 04 AE 8 O09 MOVW = REALBASIS, FID + 1320 : 
AE : AE O0A4 MOVB REALBASIS+2, FID+5 : 1321 : 
AE AE 90 O00A9 OVB  REALBASIS+3, FID+4 : 1322 : 
7E C AE 9A O04 MOVZBL FID+4, =(SP5 + 1324 : 
CF 01 FB 0008 CALLS #1, SWITCH VOLUME ; : 
18 AA DD 0008 PUSHL  26( ) + 1326 : 
CF 01 FB OOOBA CALLS #1, RELEASE_SERIAL_LOCK ; : 
08 AE 99F O0OBF PUSHAB F : 1328 : 
CF 1 FB O0¢¢ CALLS #1, SERIAL_FILE F : 
AA 0 pO 000C MOVL RO, 24(BASE) : 3 
08 AE 9F 000CB PUSHAB FID + 1330 : 
CF a. OOCE CALLS #1, SEARCH_FCB F : 
0 D5 0000 TSTL ~—RO ; : 
iB 1 0005 BEQL = BS ; : 
53 DD 000D PUSHL FCB : 1334 : 
04 A2 9F 00009 PUSHAB 4(F1B) ; : 
CF 02 FB 000DC CALLS #, READ_HEADER F : 
56 50 DO 000E1 MOVL RO, HEADER F ; 
68 D5 OO0E4 7S: TSTL (R8) + 1341 ; 
OF if OOEG BNEQ 9 : ; 
35 Abd 95 OOOE TSTB 53(HEADER) ; F 
OA 18 OOEB BGEQ $ ; ; 
B4 1D E OED BBS #29 @88(PACKET), 9$ : 1342 ; 
0910 BF BF OO0F? Bs: CHAU 320 ; 134 : 
58 D4 itd 9$: CLRL = FCB_CREATED + 1345 : 
53 05 000F9 TSTL FCB : 1346 : 
D1 ra BNEQ  10$ : : 
58 1D F MOVL #1, FCB_CREATED + 1349 : 
6 0D PUSHL HEADER : 1350 ; 
F 1 F 1 CALLS #1, CREATE_FCB ; ; 
3 9 dO 001 MOVL RO. F ; : 
AA DO OO10A 10$: MOVL FCB, 8(BASE) : 135 ; 
6E 6 : 1 BBS #6, FUNCTION, 11$ : 1 : 
O11E 11 BRW : : 
Ab 06 £1 00115 11$: BC #6, S2(HEADER), 12$ : 1361 : 
B4 D EO OO11A BBS #29, aB8(PACKET), 12$ : 1 6¢ ; 
O8A8 BF f He CHAU #2216 : 1 ; 
5 0B A3 9A 00124 128:  MOVZBL 11(FCB), PREV_MODE + 1369 : 
1 5 00 128 MOVL : 1371 : 
Ef 62 DO 00128 MOVL (FIB), RO : : 


«> Pert et et OE eee eT ee ee eee eT) eT ee ee er ee ee ee er ee ee es ee ee er er eo ee a ed ees Bs BST es es es eee oe) 


mA Nn Ww —z ~ —- ww @o o-w © o o-m nor~ CO —MOro 
-—-N ~ ~~ ~ ~ © @ o @ Son oO ac ooo Ke NS cuCueVCUC 
a ms ~” nao Mm ma « mon mM wy vvyvaTr JF vwvwwss 
-=- - e-f- = - = Cee &- eC efere Se el ee ce el oe el eel 
a 
a PSPSPS Fe FS FS FS FS FS FS FS FS FSS FS FS TS TSS HSS HS HSR HS HSS SHS HS HSS HS HS HS HS ESHER SS HS HSS SSS SCS SS HSFCA SES SCR HR SCHECTER FEHR He He 
Ld 
ae 
** 
™N 
~~ 
@ 
o 
w” 
” 
w 
| —) 
} Yv 
< 
| _ 
| NV 
| wa 
' ye 
| ox 
| oe wT 
j ror ad i 
| >u @ = < | 
wu vw <x | 
~ > < < 
ma 4 @ ° ° 
'uw > v a a 
ae « > 
aw =] @ < q s . 
—-<x< WwW oOo =) Sn 4 oh 4 ~= A ~ a 
~=z Ww a “ vw nr Vv A Vve@o- ane wo @ 
aw w 2 ~ oO N~- oO wv nAOavgm@ - <n V Yv 
| =z wv “nl — J w = = awasodv « znNuN > > 
->—lUCU a s - =) ws 1) a “nv > “_ 3 Hf t 
-*A <« ” ' Vv vVnAews vw en ~wwee f oOo ens > > 
ie 4 a “~lUh lu! . of <@r-2 4 wa (qan>- -—wyw AO « a 
<a w om ' w w 6 wee 4 aw wwe w> Lem = = 
<_— - w in Qa a> we . > ou Se 22F ” So Dn) 
>a <a Se 4 * two Oo o2 <— Zea xem AZ <a«@eavu - _ 
ecm ven ea = zow <«n-.@ aw mo DOOD O-~ OaoO~oar [4 
-—-0O <wOo-uow~ v or ZmMow vr AMO Ve~wroe wer UM CA a 
—- ws aoao--m ~ > > &-  #* a oOo uw ws woa oa > . ge gee, . 
Qa 0©o @Owetus + COMweoOw © OOM + u~—“*o ss 3D ww OOn~RO~YSRQY = COMHKHUOHROM 
Oo Zom VWWWweuMmOCtnag Teague - peg Ay tage tN DNS VCE NK HK TO -— ONE VK NK OO CO 
Mo «<a we TMwHBseowr Out® wuRtieerevwBReaeere VRBOuer Bi tien | OVMB BBR NRK KUNE 
~o 
rr a) 
“° oe er 2) po ee eT?) aj IW a Pe eT’) anu @wW a => 
mNu BMD TIT TOTHYIISoIO@MIITtIodD FIT VOITITIV3COIIN IIIB SIME JIMS 
N— DOL-—MWMYO- 6 YS W0WMH VE-— MN HK WO OMDAwWMHn WDMVOV AV Su> SOS PI PV wa 4 -AaMwu 
BHOMEEE CE CELSO DES CURES CRBC OE. ORE LOE Oe ee SE eBRs CASA 
p & § @MOrG@OAOA64%O VF OVOMAGVVPTOAAadvOMOvr BAAD -OvratveEs-OEEOz Zooovreao— 
ow 
-— 
im) 
aa oT - oT - 
oee Nad “oe ee A he Pp 
—-—nn La) rw ~o ~ oo o 
i | - - -_ - - - - 
any 
TFT TTMNMNNNNOO OOr-f-F- DDDDDDO HS Oc i eMOODODOODVIVYVOOoeoaa 


OOu FT OCOODODOOMG = WOOOu FT OOCOOO-wWOOoODu ¢ €TO<LDOOUMOOMOCOWK OTK Mu oO 
MMmDOOOOC O64 OO-O-— C04 DOCCCuUwWWO-—Aacdku ae wanes. 200-680 OwwVveenK oe So 
uw 


oo uO 
SO— MTOCUMOOTNOMNGA . ODMIM  _  CUMOM TO OCUMMmw < ENw ee DOK MN NO an sTTO 


aed MEIMTOOMVO  NOUMOD MOMOOEC ee MNOOM oan<acode coc eer. fOr odce--Oocoonm 
o 
> o oOo = o w Oooo ow Mm La ~ 
oOo N 
w w wo LA] “ omo-w veEX 4 ~» Wuimo Oo MNOwOu “ 
oOo ~ oo a i) oatwo vo 4 ~KSOMMN WA MEOMY vw 
oOo Oo oo oo o 
o 2 Oo om o ~~ oS @ @ a 
Oo o om o N o wal N - 
So So So o o w w 
Oo o o o oO - vas 
So 
So 
Cc 
o 


~N 5S 


) 


Hee dS 


JACCESS .B32 


V4.0-742 
ix. SRC 


:CF1 


VAX-11 Bliss-32 
DISKSVMSMASTER 


6 


1 


43:40: 


4 
4 


509-198 


41° 
14- 


o om srw oO ern ~- WY Or; WTOCO—- Oo wm o o 
N ae SM MTmmn WwW O KKK roor~ OO Ke oOo @ 
w Tr wvwwvwwiew vwvwvyaer JF JTF ws wvwwyrweeersr wT wT wv 
_- De oe oe rere eK KF EF OC Ke 0 oe eh eh ee el el oe el -- 
Pee Fe Fe Fe Fe Fe Fe Fe Fe Fe Fe Fe Fe HE FS FS HS HS FS FS FR FS FS FS FR FEES HS HS ESHER HS FS HS TS HTS ESTE FS STS HESS HR HE HS SETS CE FCE CECE TE FETE FEES 
ww 
z= ~ 
< —— ws a 
w -——- = = ” 
a titi- -_ “~~ ~N 
< >> me a 8 = 
‘ <<a a 4 ” 
be aa Cl} > ~ 7 . 
z ft 4 o | ~ or 
w *-s & a ~ @oe — _ aa to 
a an A “= wo > w w Yv 
~ am . . oO {un a Mw a4 se w 
Zev - ~ wr = 4 Oo w ou Pent a 
o >> <« < < — — ss = Cn A me @aam ow 
en om = £t w w — -* & KZ uw acdc a a ee <= wo 
ae co ->> «& a aonm~ a wowyr ~w AA ww rerves a wo 
. ce wea « < <KWwWNA 1 —- Oo ~~ ~ ooner —~ Me 
~ s Cw) Sez a i we OO ake WH =-— mena _- “<2 
cn “~- we -— _— —e ery ws . . — . vurT 
woe HM Seve 2 z= Kw 3D eZ “aA A 7% © —_ wets 
awonw wwe>aaow w wa wer Ovo © a@n-a~n -2O <= 
<xoc2 oorwaanca a OvveewOdu. Bes —« WOOD = & wuw> 
we aa iow4wrw _ oh 4 a uo &— & Oe °° — 
Arw = Mww> atv -~Mes#~esoe Af -<@Ow~ “f= A ww ~SMAwOetuudod WF Ff CO s -<e 
Ooomw TOM TT OO WTF OUOM TFOOOMO UM! WWI ODOOOCOC OVUIYw O00 Oe -OOOrt 
Sener ES aeVuT~w~ OB — — BITVVMVNVCEeVauMB&TBZSMaOaesrvsu rv - BSBVQMamMeaeecceaecwre 
aw = 2 | 
@Qmo~w snos,auww => ” enum >> 2DO >a Ooo 
a J I ON EE Eo UO IME I IH I IIS IMU TUT NINODONTIOW NST NNT US 
Fp 5g Set aE ey Seg pe Fp Eg Fp et Sr et SS petts PE S 
ZMwoo et tt Seu t f fet tp tet + tp te eet t tated t tee tt tet te teint eet pet | 
—— OF EMVOETEE AMM EVOOVOD— = OVOAMA VA VMOwawvrOtoaa@Ooovr@sa Oww@OavokvW 
ered PAA oh ff A eo cad 
on~ wmes ww ont © oa o - 
or ecu Nm NU Nm ON N ~*~ La) 
eH WN Mui TF OF OOF Ve TO DOWNS OO 4 OWI OO EWN fe hE wr Be te te hm Heme OS + ey 
Ue tt tr OOO Rm mr IO TFTTTMNMNNOOOOO Orr o~ Ox 


See seh seth seek oe ek eel meh ek see 
OOOQCQCOOCOCOOCOCCOCOCOCCOOCCOCOOCSOOOOOSOSCOCSOSOO OOO SOOOSOSOOOSOOOOOOOOSOOOOOoOO 
SOOO OSOOCOCOOOOCOOOCOSOOOCOCSOSSOSSSSOSSCSOOCOCOOSCOCOCOCOOOOOOOOOOOOOSoOO 


OWN Ee Ew i ONO WI OT Mr OOM OOOO ODOM u Ou - ODE OOSODOCO LOK ue sr DOOOKWU 
Sao K—COVOMK— OME & VOVOE KOM — OOO bh WWE O44 WMWOWO— CO OWWWWe Om WOOK OOo 


SOVOCO—- SC OOCOWK MEP. & OP ST FOOOMO OM & WO — OMOMO NT UM OCI LOW OOO ade OOCr- wv 
WANT ZOMUWIN OT LOC LO LOO BOOMUMNOOW <Soneoego IO LOAN EZ LOCOCO - OOMMOUUNG 


o Ne 
N oo 


AE 
a 
5 
AE 
OD 
6E 


venete 00 
14 
14 
0000v CF 
0000G CF 
0000G CF 


00000681 


~~» 
o 


10 
15-5e 1984 23:47:31 VAX-11 Bliss-32_ V4.0-742 P 15 
12-385-1 982 13:40:06 DISKSVMSMASTER:CF1iX.SRCIACCESS.832; 1°" (2) 
81 


38 a2 03 BA 00ZA7 BICB2 #2, 56(FIB) 3 14 
5 6 D AB 32$: MOVL (RB), R + 1488 
71 0B Ad f AF BC wi, 11(RO), 38$ : 
09 OA 8 TSTB 34218) + 1489 
06 1 8 BNEQ $ : 
02 06 =A : B CMPW 30s (FIB), #2 t 1490 
OA : BC BLEQU 34$ ; 
50 98 AA D BE 33$:  MOVL  #-104(BASE), RO + 1491 
54 AO 23 b} c CPL FCB, 84(ROS : 
00006 cf 36 FB C8 34$: CALLS #0, ALLOCATION_LOCK + 1494 
98 AA D 0 CD MOVL = 164 (BASE) RO + 1496 
54 COA 33 D1 D1 CMPL FCB, 84(ROS : 
6 42 00205 BNEQ : 
L LUSH_QU0O_CACH ; 
00006 CF 00 rs D7 CAL S$ #0, FLUSH_QUO_CACHE 1497 
01 04 Ag B1 00 DE 35$: CMPW 8=s-s« (FB), #1 + 1498 
: 12 002E BNEQ  36$ 3 
E D4 0 £4 CLRL =(SP) + 1499 
00006 CF 01 FB 00266 CALLS #1, DELETE_FID : 
97 11 002E8 BRB 37$ : 
E 7C OO2ZED 36$: CLRQ (SP) : 1500 
00006 CF 02 FB OOEF CALLS #2, PURGE_EXTENT F 
E 01 CE O02F4 37$:  MNEGL #1. -(SP) + 1502 
00006 CF gi FB O02F7 CALLS #1, RELEASE_LOCKBASIS ; 
0000G CF O FB OO2FC CALLS #0, ALLOCATION_UNLOCK : 1503 
50 94 AA DO 00301 MOVL JOB .BASE) RO : 1505 
1B 3c = AOs«éED.: 00305 BLBC O(RO), 38$ ; 
54 OASsCOS 09309 TSTL 4(F CBS + 1506 
16 12 0030¢ BNEQ F 
0g DD 0030 PUSHL #2 + 1509 
54 AS 9F 0031 PUSHAB 84 (FCB) ; 
4c) =O A3sOD 0031 PUSHL (FCB) : 
00006 CF 03 FB 00316 CALLS #3, CACHE_LOCK ; 
57 Q D9 00318 MOVL RO, STATUS ; 
03 57 €8 OO31E BLBS STATUS, 38$ : 1510 
57 BF 00321 CHMU = STATUS ; 
04 00323 RET ; 
05 32. A& B1 00324 38%: CMPW  SO(PACKET), #5 : 1518 
3— 1B 00328 BLEQU 42$ ; 
68 D5 0032A TSTL (RB) + 1521 
37 1 0 C BNEQ 408 : 
7E 38 A 01 0 EF E EXTZV #0, #1, S6(FIB), -(SP) t 1524 
3c = A2séOD 9 PUSHL  60(F ; 
7E 0B AG 02 0 Ff 7 EXTZV #0, #2, 11(PACKET), -(SP) : 1523 
6E 2E A2 91 0033D CMPB 0 s«46(FIBS, (SP) : 
04 1B 00341 BLEQU $ : 
6E 2E Ag 9A 43 MOVZBL 46(FIB), (SP) F 
53 DD 00347 39%:  PUSHL F + 1522 
6 DD 00349 PUSHL HEADER ; 
4 DD 48 PUSHL # ; 
00006 cf : 4 CALLS #6, CHECK_PROTECT : 
7 D MOVL RO, STATUS F 
0240 8F 6B 40$:  PUSHR #*M<R6,R9> > 1525 
00006 cr : FB CALLS #2, READ_ATTRIB ; 
3 E : BLBS RO. 418 ; 
0 BF 6 CH : 
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924 bytes, Routine Base: 


; Routine Size: 


3; Routine Size: 


7h 


SAEAN LSE SSLEARFAV AS Sano 


Oo 
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WR "OOO NOUV EW OOOO 


SN NOAA AAO 
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15-Sep-1984 23:47:31 VAX=11 Bliss-32 V4 
14-Sep-19 4 13:40:06 DISKSVMSMASTER:CF1 


GLOBAL ROUTINE SET_EXPIRE : L_NORM = 
44 
' 


FUNCTIONAL DESCRIPTION: 


This routine sets the bit in a window marking the file for 
expiration date recording when it is closed. 


CALLING SEQUENCE: 
SET_EXPIRE () 


INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

CURRENT_WINDOW: address of file window 
OUTPUT PARAMETERS: 

NONE 


IMPLICIT OUTPUTS: 
NONE 
eee VALUE : 


SIDE EFFECTS: 
expire bit set 


BEGIN 
BIND_ COMMON; 
CURRENT_WINDOWCWCBSV_EXPIRE) = 1; 
1 
END; ! End of routine SET_EXPIRE 
000 00000 ENTRY SET_EXPIRE, Save nothin 
50 o¢ an” p 0002 MOVL tSUBASE) ko ’® ° 
08 Ag 0 a 0 BISB2 #128, 11(R0) 
5 1 p 0008 MOVL #1, RO 
4 O000E RET 


15 bytes, Routine Base: SCODE$S + 03A4 
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ACCE 1-Sep 1984 VAX-11 Bliss-32 V4.0-742 age 18 
yOse080 14-Sep- aet 7 $3: $63 3 DISKSVMSMASTER:CF11X.SR CIACCESS.B32:1 (3) 
PSECT SUMMARY 
; Name Bytes Attributes 
; SCODES 947 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


| 


Library Statistics 


ae tee a ee Syabelg ecceccoe Pages Processing 
: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBILIB.L32;1 18619 86 0 1000 00:02.0 
; COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:ACCESS/OBJ=OBJ$:ACCESS MSRC$:ACCESS/UPDATE=(ENH$:ACCESS) 
: Run Time: : 

; Elapsed Time: 01:32.8 

3; Lines/CPU Min: 35 

3 Lexemes/CPU-Min: 4215 

3 "Y Used: 425 pages 

; Compilation Complete 


; Size: 939 code 3 8 data bytes 
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